“ SiS8S8S8SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ee eS ae» a © a © ae 
Ae. Ge. Oe. Oe. Oe. Oe. Oe. Oe. Oe. Oe. A. Oe. he. et ts te ta ts te 
he be te be be Oe be be be be be be te te es a a te 


E RRRRRRRRRRRR 
E RRRRRRRRRRRR 
E RRRRRRRRRRRR 


Se ete e pete pec prelrelveyvelvelvulververververre) 
Se eee epeeteeleereeleelvelverververrel 
Soe edo d oe LoodeeRootoehootucleeteclvesectvelveneereelvenyel 


bee 
Las 
Qa 
a 
w 
wo 
Y 
de! 
or. 
* 
* 
Qa 
— 
oa 
oo 
Abe 
=) 
-_ 
fe 
o 
a 


te ba 

ke ke 

ba ke feb DA 
ee Ab. ba 
kL Aa AL 
ka hak ba 
hae Ate bh 
Ae ba ao 


SS eS SS Oc So 
SS a ww ee ee ee Og 


Uist usu 
usu udu 
uss wus uwiu 
Ud Us tis usu 
Uli du dad 
uuu wus wud 
udu tu uu 
usu peer e) ww 


anaanaaanaaa 
favovolololoyvoloyoi=) 


E LLLLLLLLLL DDDDDDDD 
E LLLLLLLLLL DDDDDDDD 


udu usu 
peers) usu udu 
usu wu wu 
usu woud ulus 
eres) a ds 
usu td usu 


[US TUS CUTS UT Ve ve leu lve Trees ivulvulverve) 
[eS TUS TVS TUS TSU ICS TSU Verve Tee ree rververrs) 


mn MMMM 
mn NANNM 
nw now nn 
mown ow awn 
nn “ow “nn 
ow nw nn 
nw mn nn 
mn mn nw 
MMMM nn 
MMMM nn 
ke i 
ad ww 
aad i 
wu ao 
=, Vw 
a Ww 
ww het 
a bed Soe 


BYVYVUVYVUYUYUYYUYU 
WOU WIYUIYUWY 


usu tuk 
Lad usu 
wud ud Abd kd 
kas bad td Lad 
Abs kd wus Ld 
wud ts as bad Le 
td Ah kd tad tad 


goocococdsd cso 
oeocooococcsd og 
og oo 
oso os 
oso oo og 
oo og os 
og oo 
oo oo 
gooocococ0cCo0c9o 
gsoococ0c0c0c0c9o 
as Aad kad 
Abd Lid Md a 
ia Aad kd kd kh 
Abu Ak Lhd A 
Ad Md Led eh) hd 
Ud as hd Ld As le 
ted Aad Ad Lt 


M 
RECSELDEF .REQ;1 16-SEP-1984 16:50:39.98 Page 1 


1 
Require file for the DECISIIN module. 
1 
! 


i Version *Vv04-000' 


' 
eee RARE RAAT AEAAAAAAEAARAAAAAAEAAAEERRAA AAA e eee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


t* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
‘* ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
'* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
te COPIES THEREOF MAY ree BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
® 
* 
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® 
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ie TRANSFERRED. ® 
® 
® 
® 
® 
® 
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*® 
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® 
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'e THE gt raphe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

:t AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

't CORPORATION. 

't DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

PITS I ITI ii iii iii iiiiiiiiiiiitiiiiiiiiiiiii titi iiiititiiiiiiiititiiiiy 


lee 


; FACILITY: ERLRPT, Error Log Report Generator 
i ABSTRACT: 
This 


‘ 
' 
' 
' 
i 

; ENVIRONMENT: 

VAX/VMS operating system, user mode. 

; AUTHOR: Sharon Reynolds, CREATION DATE: January 1983 
' 
' 
' 
' 
' 
‘ 
' 
' 
' 
‘ 
‘ 
J 


! Modified by: 


v03-008 EAD0202 Elliott A. Drayton 23-Jul-1984 
Corrected definitions for options 

v03-007 EAD0192 Elliott A. Drayto 66-Jul-1984 
Added mailbox_channel pesord vize. istlun and nie to 


the definition fo SYECOM 


v03-006 poorer Elliott A. Drayton 12-Apr-1984 
Remove definitions for EMA. 
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v03-005 EAROOSE Sharon A. Reynolds, 14-Jun-1983 
Removed Label /Label. out queue definitions and added 
‘/entry=end' value found indicator. 


V03-004 SAR0027 Sharon A. Reynolds. 16-May-1983 
Added eof_flag definition to SYECOM 

V03-003 SARO016 Sharon A. engrretes. 18-Apr-1983 
Added definitions for SYECOM 

v03-002 SARO007 Sharon A nolds, 5-Apr-1983 
Added volume_output field vod obs od for SYECOM. 


v03-001 pancnos Sharon A. Reynolds, 29-Mar-1983 
Fixed bug with corruption of Lognessege and logstatus 
device names and added field definitions for the 
*volmount' common. 


Declare offsets for the SYECOM common. 


Macro 
SYESL -RECCNT = 0,0,32,0% , ' Current record number 
SYESL-FORMS = 4,6,$2,0% i 
SYESL-PRINTER = 8.0,$2,0% , 
SYESB-LINES = 12,6,8,0% , 
SYESL- “DEV_CHAR = 1$,6,32,0% , i 
SYESB-CP_T1780 = 17.0.8,0% , i 
SY E$B_ CP_11750 = 13-8 68-08 . ! 
SYE$B_CP-11722 = 19,0,8,0% , ! 
SYESL-CRYPTK_FLAG = 20,0,32,0% , i 
SYE$B_VOLUME-OUTPUT = 84°0,8,0% . ' Volume mount/dismount 

! output indicator 

SYESB_VALID_CLASS = 25,0,8,0% , ! valid device class indicator 
SYESB-VALID-CPU = 26 0.8.08 t valid cpu indicator 
SYESB_VALID_ENTRY = é _¥ ' Valid entry t pe indicator 
SYESB_VALID_TYPE = 2 -6,8,6% . ! Valid device ype indicator 
SYESB-EOF_FCAG = 29,0,8.0% , i End of file indicator 
SYESB-END-VALUE = 30,6,86,0%", i AZENTRYSEND’ value found indicator 
SYESL-MAICBOX_CHANNEL = $1,0.32,0% , i Mailbox channel va 
SVESL-LSTLUNTS. 95 = 3-0 32,63 ; ' Record size of current record 
SYESL_LSTLUN = 39,0 4 - . ! Fortran logical unit for writes 
SYESL-OPTIONS = 4$,6,32,0%'; i OPTIONS character (R,S,C) 
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MACRO 


' 

'COMPARE QUADWORD VALUES-- 

Macro to compere two ayetuere pecuye using the user supplied 
operator. This macro is somewhat inefficent if the suppl ied 
operator is EQL or NEQL since the expansion becomes (in part): 


IF Q1 EQL Q2 THEN IF Q1 EQL Q2 THEN TRUE ELSE FALSE 


However the complier may remove this inefficeny through optimization. 
This macro works better for values that are close to one another as 
it does the equality check of the high order words first. This 
macro could be improved by inspecting the supplied operator and 
generating a tailored macro. 


COMPARE QUAD (Q1, OPER, Q2) = 


BEGIN 
BIND A = Q1: VECTOR bg -LONG): 
BIND B = Q2: VECTOR [2,LONG); 


bot -AC1] EQL .BC1] THEN .ACO] OPER .BC0) ELSE .AC1] OPER .BC1) 
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